home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
An Invitation to the Roland World of Music
/
Roland - An Invitation To The Roland World Of Music.bin
/
vb
/
artic
/
vbx-fact
/
vb-alpha.frm
< prev
next >
Wrap
Text File
|
1995-05-29
|
9KB
|
329 lines
VERSION 2.00
Begin Form Form1
Caption = "Alphabets - Visual Basic"
ClientHeight = 4230
ClientLeft = 1095
ClientTop = 1485
ClientWidth = 4200
Height = 4635
Left = 1035
LinkTopic = "Form1"
ScaleHeight = 4230
ScaleWidth = 4200
Top = 1140
Width = 4320
Begin ALPHA ALPHA1
Left = 450
Top = 3570
End
Begin Frame Frame1
Caption = "Flags"
Height = 1095
Left = 240
TabIndex = 27
Top = 2160
Width = 3735
Begin OptionButton rbSYNC
Caption = "SND_SYNC"
Height = 255
Left = 1920
TabIndex = 30
Top = 720
Value = -1 'True
Width = 1695
End
Begin OptionButton rbASYNC
Caption = "SND_ASYNC"
Height = 255
Left = 1920
TabIndex = 29
Top = 360
Width = 1695
End
Begin CheckBox cbLOOP
Caption = "SND_LOOP"
Height = 255
Left = 120
TabIndex = 28
Top = 360
Width = 1455
End
End
Begin CommandButton EndButton
Caption = "End"
Height = 375
Left = 1560
TabIndex = 26
Top = 3480
Width = 1095
End
Begin CommandButton Command1
Caption = "Z"
Height = 375
Index = 25
Left = 720
TabIndex = 25
Top = 1680
Width = 375
End
Begin CommandButton Command1
Caption = "Y"
Height = 375
Index = 24
Left = 240
TabIndex = 24
Top = 1680
Width = 375
End
Begin CommandButton Command1
Caption = "X"
Height = 375
Index = 23
Left = 3600
TabIndex = 23
Top = 1200
Width = 375
End
Begin CommandButton Command1
Caption = "W"
Height = 375
Index = 22
Left = 3120
TabIndex = 22
Top = 1200
Width = 375
End
Begin CommandButton Command1
Caption = "V"
Height = 375
Index = 21
Left = 2640
TabIndex = 21
Top = 1200
Width = 375
End
Begin CommandButton Command1
Caption = "U"
Height = 375
Index = 20
Left = 2160
TabIndex = 20
Top = 1200
Width = 375
End
Begin CommandButton Command1
Caption = "T"
Height = 375
Index = 19
Left = 1680
TabIndex = 19
Top = 1200
Width = 375
End
Begin CommandButton Command1
Caption = "S"
Height = 375
Index = 18
Left = 1200
TabIndex = 18
Top = 1200
Width = 375
End
Begin CommandButton Command1
Caption = "R"
Height = 375
Index = 17
Left = 720
TabIndex = 17
Top = 1200
Width = 375
End
Begin CommandButton Command1
Caption = "Q"
Height = 375
Index = 16
Left = 240
TabIndex = 16
Top = 1200
Width = 375
End
Begin CommandButton Command1
Caption = "P"
Height = 375
Index = 15
Left = 3600
TabIndex = 15
Top = 720
Width = 375
End
Begin CommandButton Command1
Caption = "O"
Height = 375
Index = 14
Left = 3120
TabIndex = 14
Top = 720
Width = 375
End
Begin CommandButton Command1
Caption = "N"
Height = 375
Index = 13
Left = 2640
TabIndex = 13
Top = 720
Width = 375
End
Begin CommandButton Command1
Caption = "M"
Height = 375
Index = 12
Left = 2160
TabIndex = 12
Top = 720
Width = 375
End
Begin CommandButton Command1
Caption = "L"
Height = 375
Index = 11
Left = 1680
TabIndex = 11
Top = 720
Width = 375
End
Begin CommandButton Command1
Caption = "K"
Height = 375
Index = 10
Left = 1200
TabIndex = 10
Top = 720
Width = 375
End
Begin CommandButton Command1
Caption = "J"
Height = 375
Index = 9
Left = 720
TabIndex = 9
Top = 720
Width = 375
End
Begin CommandButton Command1
Caption = "I"
Height = 375
Index = 8
Left = 240
TabIndex = 8
Top = 720
Width = 375
End
Begin CommandButton Command1
Caption = "H"
Height = 375
Index = 7
Left = 3600
TabIndex = 7
Top = 240
Width = 375
End
Begin CommandButton Command1
Caption = "G"
Height = 375
Index = 6
Left = 3120
TabIndex = 6
Top = 240
Width = 375
End
Begin CommandButton Command1
Caption = "F"
Height = 375
Index = 5
Left = 2640
TabIndex = 5
Top = 240
Width = 375
End
Begin CommandButton Command1
Caption = "E"
Height = 375
Index = 4
Left = 2160
TabIndex = 4
Top = 240
Width = 375
End
Begin CommandButton Command1
Caption = "D"
Height = 375
Index = 3
Left = 1680
TabIndex = 3
Top = 240
Width = 375
End
Begin CommandButton Command1
Caption = "C"
Height = 375
Index = 2
Left = 1200
TabIndex = 2
Top = 240
Width = 375
End
Begin CommandButton Command1
Caption = "B"
Height = 375
Index = 1
Left = 720
TabIndex = 1
Top = 240
Width = 375
End
Begin CommandButton Command1
Caption = "A"
Height = 375
Index = 0
Left = 240
TabIndex = 0
Top = 240
Width = 375
End
End
Sub Command1_Click (Index As Integer)
Dim Flags As Integer
Flags = 0
If rbSYNC = True Then
Flags = Flags Or 0 ' 0 = SND_SYNC
End If
If rbASYNC = True Then
Flags = Flags Or 1 ' 1 = SND_ASYNC
End If
If cbLOOP = 1 Then
Flags = Flags Or 8 ' 8 = SND_LOOP
End If
Alpha1.Flags = Flags
Alpha1.Play = Index ' sound is pick from button index
End Sub
Sub EndButton_Click ()
Alpha1.Flags = 0
Alpha1.Play = -1 'Turn off any sounds before leaving
End
End Sub
Sub Form_Unload (Cancel As Integer)
Alpha1.Flags = 0
Alpha1.Play = -1 'Turn off any sounds before leaving
End
End Sub
